home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / src / td01_src.lha / td_r0.1 / sl3 / source / rawa / rawa.c next >
Encoding:
C/C++ Source or Header  |  1999-06-19  |  10.5 KB  |  442 lines
  1. /*
  2. **      $VER: rawa.c 1.00 (15.05.1999)
  3. **
  4. **      Creation date : 15.05.1999
  5. **
  6. **      Description       :
  7. **         Standart 3d extension module for tdo.library.
  8. **         Loads and saves the mesh as RAW ASCII file.
  9. **
  10. **
  11. **      Written by Stephan Bielmann
  12. **
  13. */
  14.  
  15. /*************************** Includes *******************************/
  16.  
  17. /*
  18. ** Ansi C includes
  19. */
  20. #include <math.h>
  21. #include <stdio.h>
  22. #include <string.h>
  23. #include <stdlib.h>
  24.  
  25. /*
  26. ** Amiga includes
  27. */
  28. #include <dos/dos.h>
  29. #include <dos/stdio.h>
  30.  
  31. #include <clib/dos_protos.h>
  32.  
  33. /*
  34. ** Project includes
  35. */
  36. #include "tdo_public.h"
  37. #include "compiler.h"
  38. #include "tdo.h"
  39.  
  40. /**************************** Defines *******************************/
  41.  
  42. /*********************** Type definitions ***************************/
  43.  
  44. /*************************** Variables ******************************/
  45.  
  46. /********************** Private functions ***************************/
  47.  
  48. /********************** Public functions ****************************/
  49.  
  50. /****** geoa.library/tdo3XSave ******************************************
  51. * 
  52. *   NAME    
  53. *     tdo3XSave -- Saves the mesh as a 3D file.
  54. *
  55. *   SYNOPSIS
  56. *    error = tdo3XSave( meshhandle,filename,screen)
  57. *                       D1         D2        A0
  58. *
  59. *    ULONG tdo3XSave
  60. *         ( ULONG,STRPTR,struct Screen " );
  61. *
  62. *   FUNCTION
  63. *    The mesh will be saved in a 3 dimensional representation in the
  64. *    filename, without existence checks.
  65. *    The screen parameter is optional and only used if non-NULL, to
  66. *    display a window with additional or special parameters needed to
  67. *    save the mesh, or messages.
  68. * 
  69. *   INPUTS
  70. *     meshhandle    - A valid handle of a mesh.
  71. *    filename      - Name of the file to create.
  72. *    screen        - Pointer to the work screen.
  73. *    
  74. *   RESULT
  75. *     error - RCNOERROR      if all went well.
  76. *            RCNOTIMPL      if the function is not implemented.
  77. *            RCNOMEMORY     if there is not enough memory. 
  78. *            RCWRITEDATA    if an error occured while writing data, no more space.
  79. *            RCOVERFLOW     if the mesh is to extensive for this format.
  80. *            RCNOMATERIAL   if there are no materials, but they are expected.
  81. *           RCNOPART       if there are no parts, but they are expected.
  82. *            RCNOPOLYGON    if there are no polygons, but they are expected.
  83. *            RCNOVERTEX     if there are no vertices, but they are expected.
  84. *            IoErr()        if possible you will get this.
  85. *            tdo errors     if a tdo call failed.
  86. * 
  87. *   EXAMPLE
  88. *    error = tdo3XSave(meshhandle,"ram:test",NULL);
  89. *
  90. *   NOTES
  91. *    By setting the meshhandle to 0 the function returns RCNOERROR if
  92. *    it is implemented or RCNOTIMPL if not !
  93. *
  94. *   BUGS
  95. * 
  96. *   SEE ALSO
  97. * 
  98. ******************************************************************************
  99. *
  100. */
  101. ULONG __saveds ASM tdo3XSave(register __d1 ULONG meshhandle,
  102.                             register __d2 STRPTR filename,
  103.                             register __a0 struct Screen *screen) {
  104.  
  105.     BPTR            rawfile=NULL;
  106.     ULONG            mesh,nofv,nofpo,nofpa,i,j,n;
  107.     TTDOVertexf    v1,v2,v3;
  108.     UBYTE            buffer[100];
  109.  
  110.  
  111.     mesh=meshhandle;
  112.  
  113.     // we were asked for implementation
  114.     if(mesh==0) {
  115.         return(RCNOERROR);
  116.     }
  117.  
  118.     // Ensure that no current polygon is set
  119.     meshPartPolygonEnd(mesh);
  120.  
  121.     nofv=meshNofVerticesGet(mesh);
  122.     nofpo=meshNofPolygonsGet(mesh);
  123.     nofpa=meshNofPartsGet(mesh);
  124.  
  125.     // Check if there are some vertices
  126.     if(nofv==0) {
  127.         return(RCNOVERTEX);
  128.     }
  129.  
  130.     // Check if there are some polygons
  131.     if(nofpo==0) {
  132.         return(RCNOPOLYGON);
  133.     }
  134.  
  135.     // Check if there are some parts
  136.     if(nofpa==0) {
  137.         return(RCNOPART);
  138.     }
  139.  
  140.     /* Open the file for output */
  141.     if((rawfile=Open(filename,MODE_NEWFILE))==NULL) return(IoErr());
  142.  
  143.     /* Change the buffer size of the filehandle to 10k */
  144.     if (SetVBuf(rawfile,NULL,BUF_FULL,10000)!=DOSFALSE) {
  145.         Close(rawfile);
  146.         return(RCNOMEMORY);
  147.     }
  148.  
  149.     // Write the header
  150.     if (FPrintf(rawfile,"RAWA\n")==ENDSTREAMCH) {
  151.         Close(rawfile);
  152.         return(RCWRITEDATA);
  153.     }
  154.  
  155.     // Get all parts and write down theyr polygons with material
  156.     for(i=1;i<=nofpa;i++) {
  157.         if((nofpo=meshPartNofPolygonsGet(mesh,i))>0) {
  158.             for(j=1;j<=nofpo;j++) {
  159.                 meshPartPolygonCurrentSet(mesh,i,j);
  160.                 // we are saving triangles, so at least 3 vertices must be there
  161.  
  162.                 if((nofv=meshNofVerticesGet(mesh))>2) {
  163.                     meshVertexGetfv(mesh,1,&v1);
  164.  
  165.                     n=2;
  166.                     while(n<nofv) {
  167.                         meshVertexGetfv(mesh,n++,&v2);
  168.                         meshVertexGetfv(mesh,n,&v3);
  169.  
  170.                         sprintf(buffer,"%0.5g %0.5g %0.5g %0.5g %0.5g %0.5g %0.5g %0.5g %0.5g\n",v1.x,v1.y,v1.z,
  171.                         v2.x,v2.y,v2.z,v3.x,v3.y,v3.z);
  172.                         if(FPuts(rawfile,buffer)!=DOSFALSE) {
  173.                             Close(rawfile);
  174.                             return(RCWRITEDATA);
  175.                         }
  176.                     }
  177.                 }
  178.             }
  179.         }
  180.     }
  181.  
  182.     // Close the file
  183.     Close(rawfile);
  184.  
  185.     return(RCNOERROR);
  186. }
  187.  
  188. /****** geoa.library/tdo3XLoad ******************************************
  189. * 
  190. *   NAME    
  191. *     tdo3XLoad -- Load a 3D file and creates a mesh.
  192. *
  193. *   SYNOPSIS
  194. *    error = tdo3XLoad( meshhandle,filename,erroffset,screen)
  195. *                       D1         D2       D3         A0
  196. *
  197. *    ULONG tdo3XLoad
  198. *         ( ULONG,STRPTR,ULONG *,struct Screen " );
  199. *
  200. *   FUNCTION
  201. *    A file which contains a 3 dimensional representation
  202. *    will be examined for all known elements and converted into the
  203. *    mesh.
  204. *    The screen parameter is optional and only used if non-NULL, to
  205. *    display a window with additional or special parameters needed to
  206. *    save the mesh or messages.
  207. *    If an error occurs, erroffset contains the file offset in lines for
  208. *    ascii files and bytes for binary formats.
  209. * 
  210. *   INPUTS
  211. *     meshhandle    - A valid handle of a mesh.
  212. *    filename      - Name of the file to load.
  213. *    erroffset     - Offset where a read error occured.
  214. *    screen        - Pointer to the work screen.
  215. *    
  216. *   RESULT
  217. *     error - RCNOERROR       if all went well.
  218. *            RCNOTIMPL       if the function is not implemented.
  219. *            RCNOMEMORY      if there is not enough memory. 
  220. *            RCUNKNOWNFORMAT if the file format is unknown.
  221. *            RCNOFILE        if the file is not found.
  222. *            RCREADDATA      if an error occured while reading data.
  223. *            RCNOMATERIAL    if there are no materials, but they are expected.
  224. *           RCNOPART        if there are no parts, but they are expected.
  225. *            RCNOPOLYGON     if there are no polygons, but they are expected.
  226. *            RCNOVERTEX      if there are no vertices, but they are expected.
  227. *            IoErr()         if possible you will get this.
  228. *            tdo errors      if a tdo call failed.
  229. * 
  230. *   EXAMPLE
  231. *    error = tdo3XLoad(meshhandle,"ram:test",NULL);
  232. *
  233. *   NOTES
  234. *    By setting the meshhandle to 0 the function returns RCNOERROR if
  235. *    it is implemented or RCNOTIMPL if not !
  236. *
  237. *   BUGS
  238. * 
  239. *   SEE ALSO
  240. * 
  241. ******************************************************************************
  242. *
  243. */
  244. ULONG __saveds ASM tdo3XLoad(register __d1 ULONG meshhandle,
  245.                             register __d2 STRPTR filename,
  246.                             register __d3 ULONG *erroffset,
  247.                             register __a0 struct Screen *screen) {
  248.  
  249.     ULONG mesh;
  250.     FILE *fp=NULL;
  251.     char header[10];
  252.     TTDOFloat af[9];
  253.     TTDOColorub color;
  254.  
  255.  
  256.     mesh=meshhandle;
  257.  
  258.     // we were asked for implementation
  259.     if(mesh==0) {
  260.         return(RCNOERROR);
  261.     }
  262.  
  263.     // we have one white material and one part
  264.     meshMaterialAdd(mesh);
  265.     color.r=255,color.g=255,color.b=255;
  266.     meshMaterialDiffuseColorSetubc(mesh,1,&color);
  267.     meshPartAdd(mesh);
  268.     meshPartMaterialSet(mesh,1,1);
  269.     
  270.     // check if all went well
  271.     if(meshNofMaterialsGet(mesh)!=1 || meshNofPartsGet(mesh)!=1) {
  272.         return(RCNOMEMORY);
  273.     }
  274.  
  275.     fp=fopen(filename,"r");
  276.     if(fp==NULL) {
  277.         return(RCNOFILE);
  278.     }
  279.  
  280.     // initializing the line counter
  281.     (*erroffset)=1;
  282.  
  283.     fscanf(fp,"%4s",header);
  284.     if(strncmp(header,"RAWA",4)!=0) {
  285.         fclose(fp);
  286.         return(RCUNKNOWNFORMAT);
  287.     }
  288.         
  289.     (*erroffset)++;
  290.  
  291.     // ensure no current polygon
  292.     meshPartPolygonEnd(mesh);
  293.  
  294.     while(fscanf(fp,"%f %f %f %f %f %f %f %f %f",&af[0],&af[1],&af[2],&af[3],&af[4],&af[5],&af[6],&af[7],&af[8])!=EOF) {
  295.         meshPartTriangleAdd9fa(mesh,1,af);
  296.         (*erroffset)++;
  297.     }
  298.     
  299.     return(RCNOERROR);
  300. }
  301.  
  302. /****** geoa.library/tdo3XCheckFile ******************************************
  303. * 
  304. *   NAME    
  305. *     tdo3XCheckFile -- Checks if the file is in the format we expected to load.
  306. *
  307. *   SYNOPSIS
  308. *    error = tdo3XLoad( filename )
  309. *                       D1
  310. *
  311. *    ULONG tdo3XCheckFile
  312. *         ( STRPTR );
  313. *
  314. *   FUNCTION
  315. *    The file its header will be examinated to verify if it is the
  316. *    file format we expect to read with the load function.
  317. * 
  318. *   INPUTS
  319. *    filename      - Name of the file to load.
  320. *    
  321. *   RESULT
  322. *     error - RCNOERROR       if all went well.
  323. *            RCUNKNOWNFORMAT if the file format is unknown.
  324. *            RCNOFILE        if the file is not found.
  325. *            RCREADDATA      if an error occured while reading data.
  326. *            IoErr()         if possible you will get this.
  327. * 
  328. *   EXAMPLE
  329. *    error = tdo3XCheckFile("ram:test");
  330. *
  331. *   NOTES
  332. *
  333. *   BUGS
  334. * 
  335. *   SEE ALSO
  336. * 
  337. ******************************************************************************
  338. *
  339. */
  340. ULONG __saveds ASM tdo3XCheckFile(register __d2 STRPTR filename) {
  341.  
  342.     FILE *fp=NULL;
  343.     char header[10];
  344.  
  345.     // open the file for input
  346.     fp=fopen(filename,"r");
  347.     if(fp==NULL) {
  348.         return(RCNOFILE);
  349.     }
  350.  
  351.     // check the file type
  352.     fscanf(fp,"%4s",header);
  353.     fclose(fp);
  354.  
  355.     if(strncmp(header,"RAWA",4)!=0) {
  356.         return(RCUNKNOWNFORMAT);
  357.     }
  358.  
  359.     return(RCNOERROR);
  360. }
  361.  
  362. /****** geoa.library/tdo3XExt ******************************************
  363. * 
  364. *   NAME    
  365. *     tdo3XExt -- Returns the default extension of the file format.
  366. *
  367. *   SYNOPSIS
  368. *    ext = tdo3XExt ( )
  369. *
  370. *    SRPTR tdo3XExt
  371. *         ( );
  372. *
  373. *   FUNCTION
  374. *    The default extension of the file format will be returned
  375. *    as READ_ONLY, NULL terminated string which will be only valid
  376. *    as long as the library is opened.
  377. * 
  378. *   INPUTS
  379. *    
  380. *   RESULT
  381. *     ext - String pointer to the extension, or NULL no default.
  382. * 
  383. *   EXAMPLE
  384. *    ext = tdo3XExt();
  385. *
  386. *   NOTES
  387. *
  388. *   BUGS
  389. * 
  390. *   SEE ALSO
  391. * 
  392. ******************************************************************************
  393. *
  394. */
  395. STRPTR __saveds ASM tdo3XExt () {
  396.     static STRPTR ext="raw";
  397.  
  398.     return(ext);
  399. }
  400.  
  401. /****** geoa.library/tdo3XName ******************************************
  402. * 
  403. *   NAME    
  404. *     tdo3XName -- Returns the file format name string.
  405. *
  406. *   SYNOPSIS
  407. *    name = tdo3XName ( )
  408. *
  409. *    SRPTR tdo3XName
  410. *         ( );
  411. *
  412. *   FUNCTION
  413. *    The file format its name will be returned. This string should not 
  414. *    be to large, about 20 characters maximum.
  415. *    The string is READ_ONLY, NULL terminated and only valid as
  416. *    long as the library is opened.
  417. * 
  418. *   INPUTS
  419. *    
  420. *   RESULT
  421. *     name - String pointer to the name, or NULL no one.
  422. * 
  423. *   EXAMPLE
  424. *    name = tdo3XName();
  425. *
  426. *   NOTES
  427. *
  428. *   BUGS
  429. * 
  430. *   SEE ALSO
  431. * 
  432. ******************************************************************************
  433. *
  434. */
  435. STRPTR __saveds ASM tdo3XName () {
  436.     static STRPTR name="RAW ASCII (TD)";
  437.  
  438.     return(name);
  439. }
  440.  
  441. /************************* End of file ******************************/
  442.